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FORTRAN for the IBM 1130 | Chapter 1 


APPLIED PROBLEMS 
Exercise 1.1 


Write the following expressions in FORTRAN notation (always use 
capital letters for the symbols in the expressions). 


a) x+y- Zz 
b) ax + by + cz 


c) + 


bd 
d 


ont 


Solution on page 4 
Return to frame 26 


e0°e@ 


Exercise 1.2 


In each of the following expressions, which operation is performed 
first? 


a) A+t+B-C 

b) A* B*C * * 2 

c) Xx * Y+A/B 

d) c*¥D*X** ZtAt+B 


Solution on page 4 
Return to frame 54 


Exercise 1.3 


In each of the following expressions, which two quantities are 
involved in the first operation performed? 


a) (A +B) + (Cc + D) 

b) (X * Y + A+ B) * Z 
c) xX * (¥ +2) 

d) A/B/ (C * D *® * 2) 


Solution on page 4 
Return to frame 81 
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Exercise 1.4 


Identify the mode of the variables and constants below and state 
whether a variable or a constant. 


a) XSUB1 


b) 0.333333 


c) JAMES 
da) 5280. 
e) KOUNT 
£) 5280 
g) MASS 
h) OPERN 
i) B58 
j)  INSID 


Solution on page 4 
Return to frame 122 


Exercise 1.5 


Identify each of the following expressions as integer, real, or 
mixed modes. 


a) (A +B) * (A = B) 

b) (I * J +N * K) * P 

c) XI * R 

d) JOE + JIM + HENRY 

e) JEAN + JANE + LOIS - KATHY 


Solution on page 4 
Return to frame 149 
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Exercise 1.6 


Write the following common formulae as FORTRAN Arithmetic 
statements. Do not mix modes. 


a)  £=ma 
b) 4 
v= 3 mr? (n = 3.141592) 
c) y = ax? + bx tc , 
d) s= 


s tv t+t+t1lg t? 
0 0 z 


Solution on page 4 
Return to frame 158 


Exercise 1.7 


Identify the correct examples of subscripting shown below with a 
"+" sign and the incorrect ones with a "-" sign. 


a) ARRAY (LIST) 
b) NAME (M*N) 

c) A (2 * I + 1) 
d) ANSWR (K —- 25) 
e) BLOCK (I + J) 


Solution on page 4 
Return to frame 189 
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Chapter 1 


SOLUTIONS TO APPLIED PROBLEMS 


NOTE: Spaces between constants, variables, and operators do not 


1.4 


(10/65) 


a) 
b) 
c) 


a) 
b) 
c) 
d) 


a) 
b) 
c) 
d) 


X + Y - Z 
AS XB Yenc 
A/B+C /D 


addition (A + B) 

exponentiation (C 
multiplication (X 
exponentiation (X 


real, variable 
real, constant 
integer, variable 


real, constant 


integer, variable 


real 
mixed 
real 


XM * A 
f3 
* 


nK Sy 


4 
A 
S 


L+eit+ 


* 2) 


* 3) 


£ ) 
h) 
i) 
3) 
d) 
e) 


« =. 3141592 *% R**3 
Xx ** 2+B* X¥+C 
0+ VO * T + 0.5*G*T**2 


affect the logic or the operation of a statement: For 
example, X+Y-Z is equivalent to X + Y - 2Z@. 


integer, constant 
integer, variable 
real, variable 
real, variable 
integer, variable 


mixed 
integer 
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APPLIED PROBLEMS 
Exercise 2.1 


Given four variables, A, B, C, and D, with previously defined 
values, write a sequence of IF statements to tell the computer to 
execute statement number 15 if all four variables have the exact 
value of 25.0. If one or more variables have a different value, 
tell the computer to execute statement number 30 instead. 


Solution on page 10 
Return to frame 32 


Exercise 2.2 


Assume that values have been computed for three variables X, Y, 
and Z. (No two values alike) 


If the value of X is: 


a) greater than Y and greater than Z go to statement number 10 
b) less than Y but greater than Z go to statement number 20 

c) greater than Y but less than Z go to statement number 30 

d) less than Y and less than Z go to statement number 40 


Write a sequence of IF statements to make the decisions outlined 


above (the second statement number option is irrelevant in each 
IF statement since it is given that no two values are alike). 


Solution on page 10 
Return to frame 38 
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Exercise 2.3 


Write a program to set each value of an array called INDEX equal 
to the order of that value in the array (that is, INDEX (1) = 1, 
INDEX (2) = 2, etc.). The INDEX array has a total length of 
2000 numbers. 


Solution on page 10 
Return to frame 54 


Exercise 2.4 


Write a DO-loop to find the smallest absolute value in a block of 
100 numbers called X. Use a variable called SMALX for this 
quantity. Assume the first number in the block is positive if you 
wish. It is not necessary to maintain the original values of the 
numbers in the block. 








Solution on page 10 
‘Return to frame 90 
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Exercise 2.5 


Write a DO-loop to copy the contents of an array called A into an 
array called B, both of which are 1000 numbers long, placing the 
numbers in the reverse order to that which they occupied in the 
original array. That is, B(1000) will contain A (1), B (999) will 
contain A (2), etc. 


Solution on page 10 
Return to frame 105 


Exercise 2.6 


Write a DO-loop to make a count of all the numbers greater than 
10.0 in a 1000-number array called A. Use N as the name of the 
count variable and I as the loop index. 





Solution on page 10 
Return to frame 114 
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Exercise 2.7 


Write a program to compute all the possible products of the A 
and B arrays, each of which contains 20 numbers, placing these 
products in an array called C (which must hold 400 numbers). 
Use two nested DO-loops such that C(1) through C(20) contains 
the ‘products of A(1l) times B(1) through B(20), C(21) through 
C(40) contain the products of A(2) times B(1l1) through B(20); 
etc. 


Solution on page ll 
Return to frame 122 


Exercise 2.8 
Write the first two statements of a DO-loop which will cycle ten 


times and execute statement number 10 on the first pass; number 
20, the second pass; number 30, the third pass, etc. 


Solution on page ll 
Return to frame 131 
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Exercise 2.9 


Write a DO-loop to divide the corresponding numbers in the A and 
B arrays (i.e., A(1)/B(1),A(2)/B(2), etc.) placing each quotient 
in corresponding order in the C array. Before dividing, test 
each B value to see if it is zero. If it is, halt the computer 
with 0000 printed on the printer. Also, if the B value is not 
zero, test the corresponding A value for zero, and if so, halt 
the computer with 0055 printed. In either case, do not divide 
and do not place anything in the C array. The computer should 
continue the loop when the start button is pushed. The arrays 
contain 1500 numbers each. 





Solution on page ll 
Return to frame 137 
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SOLUTIONS TO APPLIED PROBLEMS 
Dad IF (A - 25.0) 30, 1, 30 
1 IF (B - 25.0) 30, 2, 30 
2 IF (C - 25.0) 30, 3, 30 
2.2 IF (X - Y) 1, 1, 2 
2 IF (X - Z) 30, 10, 10 
1 IF (X - Z) 40, 20, 20 
253 I= 0 
10 IT=I+il 
INDEX (I) = I 
IF (I - 2000) 10, 20, 20 
20 (continue on in program) 
2.4 SMALX = X(1) 
DO 40 I = 2,100 
IF (X(I))10, 20, 20 
10 X(I) = -X(T) 
20 IF (X(I) -— SMALX) 30, 40, 40 
30 SMALX = X(T) 
40 CONTINUE 
205 po 10 I = 1,1000 
J = 1001 - I 
10 B(J) = A(I) 
2.6 N = 0 
DO 100 I = 1,1000 
IF (A(I) - 10.0) 100, 100, 50 
50. N=N+1 


100 CONTINUE 
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2.7 K = 0 
— DO 10 I = 1,20 
DO 10 J = 1,20 
K = K+l 
10 C(K) = A(I)*B(J) 
2.8 DO 1 I = 1,10 


GO TO (10,20,30,40,50,60,70,80,90,100), I 


2.9 DO 40 I = 1,1500 
== IF (B(I)) 36, 24, 36 
24 PAUSE 
GO TO 40 
36 IF (A(I)) 38, 26, 38 
26 PAUSE 55 
GO TO 40 
38 C(I) = A(T) /B(TI) 
40 CONTINUE 


(10/65) 1] 


FORTRAN for the IBM 1130 , Chapter 3 


APPLIED PROBLEMS 


Exercise 3.1 


Write a statement to read ten numbers from a card and place them 
in the variables A, B, C, D, E, F, G, H, O, and P, respectively. 
Use associated statement number 1 in the READ statement. 





Solution on page 19 
Return to frame 22 


Oo00 


Exercise 3.2 


Given 100 cards containing 3 numbers each, write a program to read 
each card and place the three numbers in arrays A, B, and C, 
respectively, in the order read (first three to A(1l), B(1), C(1); 
next three to A(2), B(2), etc.) 


Solution on page 19 
Return to frame 33 


O00 


Exercise 3.3 
Write a single statement to read 200 numbers, placing the first 


100 numbers in the X array and the next 100 numbers read in the 
Y array. The card reader will be referenced by the number "2". 


Solution on page 19 
Return to frame 49 
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Exercise 3.4 


Given a deck of 500 cards containing four real numbers each, write 
a self-indexed READ statement to read each card and place the four 

numbers respectively in the W, X, Y, and Z arrays in the position 
indicated by the index value. Use "2" as the input reference 
number. 


Solution on page 19 
Return to frame 59 


Exercise 3.5 

The paper tape unit contains 50 integer numbers. Write a 
statement to read these 50 numbers into the K array in every 
other position (odd-numbered positions) from 1 to 99 inclusive 


(K(1), K(3), K(5), etc.). Assume the input reference number is 4, 
and FORMAT number is l. 


Solution on page 19 
Return to frame 76 


Exercise 3.6 
Write a FORMAT statement for each condition described below: 
(all real numbers). Use "1" as the statement number for all 
FORMAT statements. 

a) 8 digits, 1 decimal place 

b) 10 digits, 8 decimal places 

c) 6 digits, 2 decimal places 

d) 7 digits, no decimal places 

e) 4 digits, 1 decimal place 


Solution on page 19 
Return to frame 99 
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Exercise 3.7 


Write a FORMAT statement to control the reading of three real 
numbers on a card, according to the following specification: 


first number: 10 digits, 5 decimal places 
second number: 8 digits, 3 decimal places 
third number: 12 digits, no decimal places 


Solution on page 19 
Return to frame 105 


Exercise 3.8 


Suppose you have written the statement READ(2,1)A,B,C,D,E . 
Construct a suitable FORMAT to specify the card location of five 
real numbers on a card, 14 card columns per number with 3 decimal 
places each. 


Solution on page 19 
Return to frame 113 


Exercise 3.9 


Suppose that the following ten numbers are to be read into the 
X array in positions 11 to 20. 


11) 04.5392 16) 10.0835 
12) 12.6120 17) 00.8917 
13) 00.7090 18) 00.0001 
14) 07.0000 19) 99.9999 
15) 18.4031 20) 06.8329 


Write a READ and FORMAT statement combination that will read all 
ten numbers on a single card, noting that the decimal point is 
included in the column count of the FORMAT. Use "2" as the input 
reference number for the card reader. 7 


Solution on page 19 
Return to frame 122 
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Exercise 3.10 


Write a pair of statements to read 100 cards where each card 
contains 2 integers and 3 real numbers to be placed in the 

JOE, JIM, ANDY, BOB, and FRANK arrays, respectively. Each 
integer occupies 5 card columns and each real number occupies 

10 columns including 3 decimal places. The real numbers being 
placed in the FRANK array are written in E notation. The numbers 
being read should be placed in the arrays in the order in which 
they are read. 


Solution on page 19 
Return to frame 150 


Exercise 3.11 


Assuming the FORMAT (6F12.4) is to be used, show on an imaginary 
card layout the position of the following six numbers. Use the 
“natural” or right-shifted position with the decimal point punched. 


1) 1.3841 | 4) 1.2345 
2) 128.7801 5) 0.0001 


3) 1000000. | 6) 9.9999 


DDOQOODOKCODDNODDNDDDNODDDDNOAHODDADDNADODDNOHDDDDDADDNDNDADHNDOADHNDNNDNDDNN0DDNDGDNN 


9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38.39 40 41 42 43 44 45.46 47 48 4950 51 5253 54 55 56 57 58 59.60 63 62 63 64 65 66 67 68 69 70 71 72 73 74 TS 76 77 78 79 80 





Solution on page 20 
Return to frame 156 
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Exercise 3.12 


Write a READ statement to read 1000 numbers (with E notation) 
from cards into the first 1000 locations of the X array. The 
FORMAT should specify ten numbers per card, 8 columns per number 
with three decimal places. Write a statement using the same 
FORMAT to read 1500 numbers from paper tape into the next 1500 
positions of the same X array. Show all three statements 
required. 


Solution on page 20 
Return to frame 180 


o°o°o 


Exercise 3.13 


Given three 100 number-arrays - A, B, and C - write a WRITE and 
FORMAT combination to list these arrays in three parallel columns 
of numbers. Each column of numbers should occupy 20 character 
columns of the printer with four decimal places provided. This 
should result in 100 lines being printed, each line having 3 
numbers. 


Solution on page 20 
Return to frame 214 
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Exercise 3.14 


‘The card reader contains 100 cards, each consisting of 10 real 
numbers, 7 digits per number with 3 decimal places (no E 
notation). Write a program to print these 100 cards on the 
typewriter exactly as they appear on cards (hint: same FORMAT). 
Use a ten-number array as a buffer; that is, read ten numbers 
into the array and then write them on the CypewE stor before 
reading the next ten numbers. | 


Solution on page 20 
Return to frame 240 


Exercise 3.15 

Write a combination of statements to print the heading shown below: 
bFINALbDCOMPUTEDbDRESULTS 

Note: b means blank 

Following this heading, skip a line and print on separate lines 

ten values of the ANSWR array, using 20 print positions with 


7 decimal places included. Use a single FORMAT statement for this 
problem, and FORMAT code E. 


Solution on page 20 
Return to frame 268 
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(10/65) 


10 


a) 
b) 


qd) 
e) 


SOLUTIONS TO APPLIED PROBLEMS 


READ (2 ,L)A,B,C,D,E,F,G,H,O,P 


DO 10 I = 1,100 
READ (2,1) A(I) ,B(I) ,C (TI) 


READ (2,1) (X(I),I = 1,100), (¥(1I),I = 1,100) 


READ (2,1) (W(I) ,X(I) ,Y(I) ,Z(1I) ,I=1,500) 


READ (4,1) (K(I),I = 1,99,2) 


FORMAT (F8.1) 
FORMAT (F10.8) 
FORMAT (F6.2) 
FORMAT (F7.0) 
FORMAT (F4.1) 


ee od oe 


FORMAT (F10.5,F8.3,F12.0) 
FORMAT (5F14.3) 


READ(2,1) (X(I),I = 11,20) 
FORMAT (10OF7. 4) 


READ (2,1) (JOE(I) ,JIM(I) ,ANDY (I) ,BOB(I) ,FRANK(I), 
I = 1,100) 


FORMAT (215, 2F10.3,E10.3) 


19 
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OOOO DDNDDNNNOCOD00NO0OOMocoooog B0}000000000000/000000 Gogg goo oocccvcc000po000000 


12.3 4.5 6 7 8 9 10 Ih 12f83 14 15 16 17 18 19 20 21 22 23 24425 26 27 28 29 30 31 32 33 34 35 36437 38.39 40 41 42 43 44 45 46 47 4894950 51 52 53 54 55 56 57 58 59 GOK 62 63 64 65 65 67 68 69 70 71 72973 74 75 76 77 78 79 80 





3.12 -- READ (2,1) (X(I),I 


= 1,1000) 
READ (4,1) (X(I) ,I = 1001,2500) 
1 FORMAT (10E8.3) 
3.13 WRITE (3,1) (A(I) ,B(I) ,C(I) ,I = 1,100) 
1 FORMAT (3F20. 4) | 
3.14 DO 10 J = 1,100 


READ (2,1) (A(I),I = 1,10) 
10 WRITE(2,1) (A(I),I = 1,10) 


1 FORMAT (10F7.3) 
3.15 WRITE(3,1) (ANSWR(I),I = 1,10) 
1 FORMAT ('bFINALbCOMPUTEDbRESULTS ' // (E20.7)) 
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APPLIED PROBLEMS 


Exercise 4.1 


Solve the trigonometric formula shown below for all 100 angles in 
the ANGLE array, placing the answers in the Y array. The ANGLE 
values are all in degrees (57.29578 degrees per radian) and the 
library functions use radians as the proper dimension for their 
arguments. 


1 2 


y = tan? (sin* x + tan? x) 
NOTE: 
tanx = sinx/cosx 


tan! A = arctangentA # 1 
tandA 


Solution on page 25 
Return to frame. 30 


Exercise 4.2 
Assuming the Type statements: 


REAL INTGR 
INTEGER SIMPL, BOGGL 


identify the mode of the functions' value in the list below: 


a) xacT ad) INTGR 
b) NUMBR e) xXCESS 
c) SIMPL f)  BOGGL 


Solution on page 25 
Return to frame 52 
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Exercise 4.3 


Write a statement which will direct the computer to statement 
number 10 if the absolute value of X is greater than 0.001 or go 
to statement 100 if the absolute value of X is less than or equal 
to that quantity. 





Solution on page 25 
Return to frame 57 


Exercise 4.4 
Write a function defining statement to compute the expression 


tan" (x) where tan ! signifies arctangent. Use the name ANGLE. 
y 


Solution on page 25 
Return to frame 84 
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Exercise 4.5 


Write a complete FUNCTION subprogram including a DIMENSION 
statement to find the algebraically smallest quantity in an array 
of 1000 or less values. The FUNCTION is to be called SMALL, and 
it will have two arguments: the dummy array name and integer | 
variable telling how many numbers in the array. The answer will, 
of course, be made the value of the function. 





Solution on page 25 
Return to frame 128 
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Exercise 4.6 


Write a complete SUBROUTINE subprogram to invert an array; that is, 
place the first number of the first array at the end of the second 
array, the second number of the first array next to the end of the 
second array, etc. Use three arguments: the given array, the 
array into which the inverted array will be placed, and an integer 
quantity which tells how long the arrays are. The SUBROUTINE is 

to be called INVRT. Don't forget the DIMENSION statement. 


Solution on page 25 
Return to frame 148 


Exercise 4.7 


Given 10 cards, each containing a row of a 10 by 10 matrix 
(lOF7.1 in the FORMAT), write the necessary DIMENSION, READ, and 
FORMAT statements to place the matrix in the array called BLOCK. 





Solution on page 25 
Return to frame 209 
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SOLUTIONS TO APPLIED PROBLEMS 


4.1 DO 10 I = 1,100 
X = ANGLE (I) /57.29578 
10 Y (I) = ATAN ((SIN(X)**2) + ((SIN(X) /COS (X) ) **3)) 


4.2 a) real da) real 

b) integer ea) real 

Cc) integer f) integer 
4.3 IF(ABS(X) - .001) 100, 100, 10 
4.4 ANGLE (X,Y) = ATAN (X/Y) 
4.5 | FUNCTION SMALL (A,N) 


DIMENSION A(1000) 

SMALL = A(1) 

DO 10 I = 2,N 

IF (SMALL - A(I))10,10,5 


5 SMALL = A(T) 
10 CONTINUE 
RETURN 
END 
4.6 SUBROUTINE INVRT (A,B,N) 


DIMENSION A(1000), B(1000) 
DO 10 I = 1,N 
J=N-I+1]1 

10 B(J) = A(TI) 
RETURN 
END 


4.7 DIMENSION BLOCK(10,10) 
1 FORMAT (10F7.1) 
READ (2,1) ((BLOCK(I,J), J = 1,10), I = 1,i0) 
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EXAMINATION 
(Open Book) 


a i 20 Points 


Given the following table of variable values: 


Name Value 
A 1.0 
B 3.0 
C 5.0 
D 2.0 


Indicate each of the numeric values which the variable X would 
represent after the computer had completed each of the Arithmetic 
statements below. (For example, the statement X =A+B+CtD 
would tell the computer to add 1.0, 3.0, 5.0, and 2.0 and set the 


value of X equal to 11.0). 


STATEMENT | X-value 

a) X=C+D- 1.0 

b) X= B* C * D 

c) X =A + B/C 

4) X=BH+C-A-D 

e) X=B*C/SD*A 

£) X=B* B/B 

g) X = 3.0*3B * * 2-B*C-A-D 

h) X = X + A (assuming the computer 
has just executed b above) 

i) X=D* D* D* D / 32.0 

j) xX =-D 
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2. 20 Points 


Assume a projectile is launched from a reference point with 
coordinates (0,0). It has an initial velocity vx in the horizontal 
direction, and an initial vertical velocity of vy. The x and y 
coordinate distances are governed by the following formulae: 


(vx) (t) 


(vy) (t) - 0.5 (g) (t?) 


x 


Y 


Where vx and vy are velocity in feet-per-second, t is the time in 


seconds, and g is the acceleration of gravity 32.174), and Xx 
and y come out in feet. Write a suitable pair of Arithmetic | 
statements to compute the above formulas for X and Y in miles 
(5280 feet per mile) assuming that suitable values exist for the 
variables VX, VY, and T. 





36 10 Points 

Consider the following sequence of arithmetic statements to be a 
"program" to be executed in the order they are written. After 
each statement has been executed show the current values of the 
variables A, B, and C, assuming each was originally zero. 


A B C 


=B-C+A 
=B*C 


= B / 2.0 


Fr wy Oo Ww PP Ww AQ Ah PP 
Il 
80] 
+ 
tw 
+ 
Q 


=C / B+ 12.0 
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4. 10 Points 


Indicate which two variables and/or constants are involved in the 
first operation performed within the following expressions: 


a) A*X** 24+ B* X+C 
b) X ** (A + B) 

c) A**(K ** (I + 1)) 

d) A/SB/C 


e) (((A + B) * X¥ + C) * X + D) * X 


5% 10 Points 


Point out the "bug" in each of the following statements (there is 
one, and only one, error in each). 


a) Xx +t+Yoe=rA 
b) V= (I * J 
c) N = N + 1,000 


qd) 3.141592 = PI 


e) J = N¥* 1.5 + 1K 

f) R= (X**2) + Y **2) **0.5 
g) A = B**(N - 2)) 

h) F+t2=1./ (A + B+ C) 


1) TEMP =-RECORDS 


j) A = K** (J + 2N) 
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6. 20 Points 


Given the formulas: 


X . a b Cc 
; UR ag 
Vel 1 1 1] 
R?’startg 
V-a 
f= § 
X-V 
= (R) (8) (NOTE: 8 is the Greek letter Beta) 
h = f-g 


Write a suitable sequence of at least four Arithmetic statements 
to compute these formulas, being aware of the fact that variables 
are being defined and used in subsequent formulas. Do not mix 
modes by assigning a name of the wrong mode to a variable by 
misuse of the first letter. Assume that values already exist 

for all the variables except those four on the left of the equal 
Signs. 
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ve 10 Points 


Identify the incorrect subscript usage in one (and only one) of 
the following statements: 


a) A (I) = B (I) * C (fI) 

b) J =N (K) ** (3 * K ¥*® 2) 

c) B (L) = SAMPL (4 * L - XK) Ans. 
da) A (I) = Bl - ANUM (J) 

e) X =A (I) * B (J) / C (INDEX) 


Contact your advisor 
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EXAMINATION 
(Open Book) 


i 20 Points 

Given the following conditions: 
equals - 22.5 

equals + 16.9 


equals + 5.6 
equals 3 


HN KX 


Indicate the statement number to be executed next after each of 
the following statements: | 


Note: If a sequence of statements is given, indicate the state- 
ment number to be executed next after the first statement in 
the sequence. | | 


a) IF (X) 20, 30, 40 
b) PAUSE 28 


34 GO TO 196 
28 A=Be+tC 


c) GO TO 101 

da) GO TO (3,3,20,9,3,16,546) ,I | 
e) IF (X + Y¥ + Z) 11, 12, 13 

f) IF (Y - X) 942,1,2 

g) GO TO (11, 12, 13, 14), I 

h) IF (I**I) 4, 2, 8 

i) IF (I - 1) 16,26,36 

3) DO 58 L = 4,96,3 
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2. 


20 


Points 


Chapter 2 


Indicate which FORTRAN statements below have "bugs" and point out 
each error (there is no more than one per statement): 


a) 
b) 
Cc) 
da) 
e) 
f) 
g) 
h) 
i) 


3) 


3. 


IF 


GO 


DO 


LE 


DO 


IF 


IF 


DO 


(XP * 2. =. 10) p13 22 

TO (1,2,3) K 

10 X = 1,40 

(QUANTUM) 1,6,9 

30 INDEX = 5,J,3 
(JKLM-2) 1111,4896,3 
(NUMBR) 10, 20, 30, 40 


40 J = 1,20,3,9 


A(K) = X(I) + Y(A) 


PAWS 77777 


LO 


Points 


Write a program to compute the square roots of the real whole 
numbers ranging from 1.0 to 100.0 and place these roots in the 
100-number array called ROOT. 
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A. 20 Points 


Assume that the program shown below has been completely executed. 
Indicate the number of times each statement will have been executed. 


5 X = 0.0 

10 DO 500 I = 1,100 

50 X =X + 1.0 

55 IF (X -20.0) 101, 101, 100 
100 IF (X - 80.0) 102, 102, 103 
101 A(I) = 3.0 * xX ** 24 4.0 * xX 
75 GO TO 500 
102 A(I) = 5.0 * X ** 2+ 6.0 * X 
76 GO TO 500 
103 A(I) = 7.0 * X ** 2 + 8.0*X 
500 CONTINUE 


1000 STOP 
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ae 30 Points 


Given an array called A containing 1000 numbers, write a program 
to compute the polynomial 4a;° - 3a;3 + 2a;2 - 16 for all values 


of the A array. If the polynomial value is positive or zero, 
place that number in the array called XPOS in the next available 


position; if the computed value is negative, place it in similar 
fashion in an array called XNEG. ae 


Contact your advisor 
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ds 


EXAMINATION 
(Open Book) 


10 Points 


Indicate the number of numerical values read or written by each 
of the following statement groups: 


a) 
b) 


Cc) 


a) 
e) 
f) 


g) 
h) 


1) 


j) 
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READ(2,1) A, B, C, D 


WRITE(3,1) (Y¥Y(I), I= 1, 25), 2 
I= ll 
J = 20 


READ (2,1) (X(N), N = I,J) 

WRITE 

READ (2,1) (A(I), B(I), C(I), I=1,5) 
WRITE(3,4) (J,X(J), J = 1, 100) 

WRITE (3,50) (X(I) ,I=1,10), (¥(J),J=1,15,2) 
1 

10 

21 


2 
WRITE(3,1) (BLOCK(N), N=I,K,J) , (ARRAY (M) ,M=I,K,L) 


AGH 


READ(2,2) I,J3,K, (A(L), L = 1, 10) 


20 
50 
3 * I/J 
a | 
TE(3,101) (X(M), M = K,N,1), Y,2Z 


oe | | 


L 
J 
K 
N 
WR 
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2s 10 Points 


How many numbers per line or card will be read or written according 
to the following FORMAT statements? 


Note: All FORMATs using more than 80 positions are assumed to 
be output formats. 


a) FORMAT (X4,6F12.4) 

b) FORMAT (F10.2, 20X, 315) 

c) FORMAT ('bTABULARbOUTPUTbNO.b',12) 

d) FORMAT (6(E15.7, I5)) 

e) FORMAT (F16.0, 10X, E18.6, 718) 

£) FORMAT (F12.6, 2(3F6.2, 10X, 16)) 

g) FORMAT ('bX=', F10.4, 3X, 'bY=', F10.4) 
h) FORMAT (X40,F12.4/ (12x, F12.4)) 

i) FORMAT (72('*')) 


j) FORMAT (2(F12.6, 6X, 14), 6E10.4) 
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co 30 Points 


Write a complete program (with STOP and END statements included) 
to do the following: 


a) 


b) 


c) 


dq) 


e) 
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Read a card containing an integer number ranging from 

1 to 2000 in card columns 1-4. 

Read that many real numbers from successive cards, six 

numbers per card, twelve columns per number (including four 
decimal places), to make up the A array. Use F notation. 

Sort the array values into algebraically ascending order 
without using a separate array (use the technique of 
comparing adjacent values, swapping if they are out of order). 
Print out the re-ordered array, on a 120-position printer, ten 
numbers per line, 12 columns (four decimal places), Bee 
number. Use F notation. 

Stop the computer. 
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4. 50 points 


Write a program to read 100 cards from the card reader. These 
cards contain current information about an employee stock- 
purchasing plan. Each card is laid out as follows: 


Column Contents Range 

1-5 Employee serial number 10000-29999 
11-16 Current account balance $0.00-$999.99 
20-22 Number of shares owned 0-999 


Your program should read these quantities into 3 individual 
100-number arrays, and then read 100 more cards, each containing 
the following updated information: 


Column Contents Range 
1-5 Employee serial number 10000-29999 
11-16 | Amount deposited this 
period $0.00-$999.99 


reading these values into 2 additional 100-number arrays. 


Finally, your program is to read a single card containing the 
current stock price, six columns with two decimal positions 
provided. Then, taking each employee updating (card) record in 
turn, find each card serial number's position in the first card 
list and add the corresponding new deposit to the corresponding 
account balance. Check this total against the current price, 
and subtract out the current price if the employee has purchased 
a share, simultaneously updating his “shares owned" total and 
printing his serial number on the attached printer (output 
reference 3). When this has been done for all 100 employees, 
punch out 100 new cards containing the updated version of the 
three 100-number arrays, using the same FORMAT as before. 
(Assume that no new deposit will exceed the stock price and that 
the old balance will be less than the current stock price, and 
also that every serial number in the updating card deck will be 
found in the corresponding card list.) 
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Contact your advisor 
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x le 10 Points 


EXAMINATION 
(Open Book) 


Chapter 4 


Write a single Arithmetic statement function definition for the | 
following formulae: 


Name 


CUBRT 


SIN2X 


ROOT 


LOG10 


CUBRT (X) = 


SIN2X (X) = 


ROOT (A,B,C) = 


LOG1O (X) = 
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Formula 


cube root = x (-333333) 
sin (2x) = 2 sin (x) cos (x) 


-b + b2 -4dac 
root = 2a 


log,;) (x) = 0.4342945 log, (x) 
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2% 20 Points 

Given an array of positive numbers, 500 in all, called LIST 
(integer) compute the fourth root of each value. Place the 
results in the real array called ARRAY in the same order that 
the original values were found in LIST. Include an appropriate 
DIMENSION statement. 


3. 10 Points 

Indicate by listing subscripts the order of the lists in the 
following DIMENSION statements. For example, DIMENSION A(2,2) 
would result in the order: (1,2). (2,12); €172)5 :02,2) 


DIMENSION X(5,4) 


DIMENSION ARRAY (2,5) 


DIMENSION QUOTA (2,2,2) 
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4. 20 Points 


Write a FUNCTION subprogram called G with two arguments X and A. 
The FUNCTION is to be programmed to give the value ax* if x is 
less than zero or the value ax? if x is equal to or greater than 


Zero. 


5. 20 Points 


Write a SUBROUTINE subprogram called MATMY which will multiply 

two matrices, each of which is 10 by 10 in size, having as 
arguments A, B, and C, where A and B are the matrices to be 
multiplied and C is the product matrix. Remember, the argument 
variables are arrays (must appear in DIMENSION statement) and they 
are listed in the SUBROUTINE statement by name only (without any 
subscripts). In general, the product of two matrices is formed 

by multiplying each number in a row by a number in a column and 
adding the products, repeating for all combinations of rows and 
columns. In formula form it is: 


10 
c.. = = (a...) (b, .) (for all combinations 
1J ey «(2k kJ of i and j) 
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or, for example: 


Cc = b 


a 
1,1 


=a b +a b + 
dnp a Dg 2 Ly 2242 


mM ° e e ‘e e ® ® 


Q°* © «© «© ee e @ 


=a b + b 
1,10 Lo -1k0 1,2 2,10 


ee0e ee Q 


a b +a b + 
2,1 Lp 2,2 24k 


+a b +a b +a b + . 
1 gcd 1,2 2,1 Ps ae 1,4 4,1 


a b + a 
Lipo ope 


+a b 
1,3 3,10 


a b + 
2,3 3,1 


a b + 


Chapter 4 


+a b 
1,10 10,1 


faa! 
ow 
+ 


+a b 
1,10 10,2 


f= 
& 
~ 
NO 


v 


+ * e e 6 e e ® 
gm ° e e e ° e e 


a b . ee ee 


b 
1,4 4,10 1,10 10,10 


see OF etc. 


a b 
4,1 2,10 10,1 


2,4 


e 


In other words, any ij-th element of the c matrix is composed of 
ten products added together, the products being corresponding 
elements of the i-th row of the a matrix and the j-th column of 


the b matrix multiplied together. 


Notice that the examples above 


show the first subscript of the a matrix always agrees with first 
subscript of the desired c element, while the second subscript 
of the b matrix always agrees with the second subscript of the 


c element. 


b are always the same, also. 


The column subscript of a and the row subscript of 
Thus, this problem can be handled 


with three nested DO-loops, the innermost of which controls the 


summation. 
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6. 


20 Points 


Write a program that uses the FUNCTION of problem 4 and the 
SUBROUTINE of problem 5 in the following manner: 


NOTE: Use F notation in all FORMAT statements. 


Read from cards a 10 by 10 array called BLOCK, reading 
column-wise (first subscript cycled most rapidly), reading 
6 twelve-position numbers per card with 4 decimal places. 


Read from paper tape a 10 by 10 array called BMTRX, reading 
row-wise (second subscript cycled most rapidly) with the 
same card FORMAT. 


Call on MATMY to multiply the two matrices, giving BLOCK 
as the first argument (pre-multiplier) and BMTRX as the 
second (post-multiplier), and place the result in an array 
called ARRAY. 


For each element of ARRAY, compute the value of G(D,ARRAY(I,J)) 
using the FUNCTION of problem 4, with D having a value of 

5.0, and replace the original value of ARRAY with the one 
computed with the FUNCTION. 


Print on the typewriter the entire ARRAY contents (row-wise) , 
ten numbers per line with four decimal places. 


Contact your advisor for the Final Exam 
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COURSE INDEX 


TOPIC 

Note: The number following each 
topic is the chapter number. 

A code (3) 
ABS function (4) 
Alphabetic data (3) 
Argument (4) 
Arithmetic statement (1) 
Arithmetic statement definition (1) 
Arithmetic statement execution (1) 
Arithmetic statement function (4) 
CALL statement (4) 

Card layout for I/O (3) 

Carriage control (3) 

Closed subprogram (4) 

COMMON statement (4) 

Computed GO TO (2) 

Constants (1) 

Constants, integer (1) 


Constants, real (1) 


CONTINUE (2) 


Control statement (2) 
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DIM function (4) 
DIMENSION statement (4) 
Divide check (4) 


DO statement (2) 
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FRAME NUMBER 


Note: "ff" means "following" 


277 
53 ff 
250 ff 
8, 13 ££, 27 
7, 139 ££, 157 
132 
158 ££, 168 
64 ff 
131 
150 
291 ff 
34 
218 ££ 
123 ££ 
83 ff 
108 
107 
84 
35, 12 
77 ££ 
103 ff 
164 
61 ££, 67 ££, 75 
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TOPIC 


Double subscripts (4) 

Dummy arguments (4) 

Dummy variables in COMMON (4) 
DVCHK routine (4) 

E code (3) 

E notation (1) 

END (2) 

END statement for subprogram (4) 
EQUIVALENCE statement (4) 
Explicit mode specification (4) 
Exponentiation (1) 

Expression (1) 

F code (3) 

Field width (3) 

FLOAT function (4) 


FORMAT statement (3) 


FORTRAN card (4) 
FORTRAN eeaiing form (4) 
FORTRAN compiler (4) 
FUNCTION statement (4) 


FUNCTION subprogram (4) 
Mode assignment (4) 


GO TO (2) 
Hierarchy of operations (1) 
I code (3) 


IABS function (4) 
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FRAME NUMBER 


171 ff 

70, 115 

224 

165 

122 ff, 214 ff 
196 ff 

137 

113, 137 

212 £f 

50 

26 ff 

122 ff, 153 
84, 96, 137, 187 ff 
86, 92, 102 

57 ff 


22, 76 ££, 93, 104 ff, 
173, 187 ££, 242, 304 


234 ff 

234 ff 

231 ff 

91 ff 

87 ££, 121 
96 

54 

33 ££, 42 
141 ff 


53 ff 
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TOPIC 


IF statement (2) 
IFIX function (4) 
Input/output reference number (3) 
Input statements (3) 
Integer arithmetic (1) 
Integer numbers (1) 
INTEGER Type statement (4) 
Integer variables (1) 
Library functions (4) 
Literal data 

for output (3) 

for input (3) 
Loop (2) 
Mixed mode (1) 
Mode (1) 
Mode of arguments (4) 
Mode of subprograms (4) 
Mode of variables (1) 
Name of a function (4) 


Names of Arithmetic statement 
functions (4) 


Names of FUNCTION subprograms (4) 
Names of SUBROUTINES (4) 

Nested DO-loops (2) 

Open subprogram (4) 

Operators (1) 

Output reference number (3) 


Output statements (3) 
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FRAME NUMBER 


14 ££, 37 
57 ff 

9, 12, 60 

3 ff 

153 ff 

101, 103 

48 

115 

5, 8, 17, 31 ff 
250 ff, 255 ff 
268 ££, 275 

41 

125, 164 ff 

100 ff, 152 

42 ££ 

40 ff 

112 

6, 10 ff, 21, 35 


93 
94 


"132 


96, 98, 105 ff 


33 

14 

184, 232 ff 
180 ff 
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TOPIC 


OVERFL routine (4) 

Overflow (4) 

Parentheses (1) 

Parentheses in FORMAT statements (3) 
PAUSE (2) 

Printer layout for output (3) 
Range of a DO-loop (2) 

READ statement (3) 

Real numbers (1) 

REAL type statement (4) 

Real variables (1) 

RETURN (4) 

Self-indexed I/O list (3) 
Self-indexed I/O with subscripts (4) 
Sense lights (4) 

SIGN function (4) 

Significant digits (1) 

Signs (1) 

Size of numbers (1) 

Slash "/" character (3) 
SLITE and SLITET (4) 

- Source deck ordering (4) 
Statement numbers (2) 

STOP (2) 

Subprogram naming rules (4) 


Subprograms (4) 
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FRAME NUMBER 


161 ff 
158 

54 ff, 70 
164,f£, 176, 244 
134 

200 

94 

8, 17, 58 

101, 102 

48 

116 

99 

33 ££, 49, 248 
191 | 


149 ff 


60 ff 

191 

14 

189 

157 ££, 175, 243 ff 


149 ff 
228 

5, 7 £f 
133 

35 


3 ££, 30, 44, 121 
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TOPIC 


SUBROUTINE statement (4) 
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SUBROUTINE subprograms (4) 

Subscript expression rules (1) 

Subscripted variables in I/O list (3) 

Subscripts (1) 

Subscripts, double (4) 

Three-dimensional arrays (4) 

Truncation (1) 

Type statement (4) 

Underflow (4 ) 

Variable list in READ statement (3) 
in WRITE statement (3) 

Variable naming rules (1) 

Variables (1) 

WRITE statement (3) 


X code (3) 


53 


FRAME NUMBER 


135 ff 

128 ££, 140, 145 
187 

25 ff 

175 ££, 185 

171 ££ 

186 ff 

155 

47 ££ 

158 

14, 24, 39, 64, 114, 


144 
186 


87 ££ 
182 ff 
287, 314 
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